home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / xlisp2.1 / xldist02.zoo / sources / xlftab.h < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-09  |  9.0 KB  |  226 lines
  1. /* xlftab.c - xlisp function table */
  2. /*    Copyright (c) 1985, by David Michael Betz
  3.     All Rights Reserved
  4.     Permission is granted for unrestricted non-commercial use    */
  5.  
  6. /*New file which holds the external declarations for all the xlisp functions*/
  7.  
  8. #ifdef ANSI
  9. /* external functions */
  10. extern LVAL
  11.     rmhash(void),rmquote(void),rmdquote(void),rmbquote(void),rmcomma(void),
  12.     clnew(void),clisnew(void),clanswer(void),
  13.     obisnew(void),obclass(void),obshow(void),
  14. #ifdef OBJPRNT
  15.     obprin1(void),
  16. #endif
  17.     rmlpar(void),rmrpar(void),rmsemi(void),
  18.     xeval(void),xapply(void),xfuncall(void),xquote(void),xfunction(void),xbquote(void),
  19.     xlambda(void),xset(void),xsetq(void),xsetf(void),xdefun(void),xdefmacro(void),
  20.     xgensym(void),xmakesymbol(void),xintern(void),
  21.     xsymname(void),xsymvalue(void),xsymplist(void),
  22.     xget(void),xputprop(void),xremprop(void),
  23.     xhash(void),xmkarray(void),xaref(void),
  24.     xcar(void),xcdr(void),
  25.     xcaar(void),xcadr(void),xcdar(void),xcddr(void),
  26.     xcaaar(void),xcaadr(void),xcadar(void),xcaddr(void),
  27.     xcdaar(void),xcdadr(void),xcddar(void),xcdddr(void),
  28.     xcaaaar(void),xcaaadr(void),xcaadar(void),xcaaddr(void),
  29.     xcadaar(void),xcadadr(void),xcaddar(void),xcadddr(void),
  30.     xcdaaar(void),xcdaadr(void),xcdadar(void),xcdaddr(void),
  31.     xcddaar(void),xcddadr(void),xcdddar(void),xcddddr(void),
  32.     xcons(void),xlist(void),xappend(void),xreverse(void),xlast(void),xnth(void),xnthcdr(void),
  33.     xmember(void),xassoc(void),xsubst(void),xsublis(void),xlength(void),xsort(void),
  34.     xremove(void),xremif(void),xremifnot(void),
  35.     xmapc(void),xmapcar(void),xmapl(void),xmaplist(void),
  36.     xrplca(void),xrplcd(void),xnconc(void),
  37.     xdelete(void),xdelif(void),xdelifnot(void),
  38.     xatom(void),xsymbolp(void),xnumberp(void),xboundp(void),xnull(void),xlistp(void),xendp(void),xconsp(void),
  39.     xeq(void),xeql(void),xequal(void),
  40.     xcond(void),xcase(void),xand(void),xor(void),xlet(void),xletstar(void),xif(void),
  41.     xprog(void),xprogstar(void),xprog1(void),xprog2(void),xprogn(void),xgo(void),xreturn(void),
  42.     xcatch(void),xthrow(void),
  43.     xerror(void),xcerror(void),xbreak(void),
  44.     xcleanup(void),xtoplevel(void),xcontinue(void),xerrset(void),
  45.     xbaktrace(void),xevalhook(void),
  46.     xdo(void),xdostar(void),xdolist(void),xdotimes(void),
  47.     xminusp(void),xzerop(void),xplusp(void),xevenp(void),xoddp(void),
  48.     xfix(void),xfloat(void),
  49.     xgcd(void),xadd(void),xsub(void),xmul(void),xdiv(void),xrem(void),xmin(void),xmax(void),xabs(void),
  50.     xadd1(void),xsub1(void),xlogand(void),xlogior(void),xlogxor(void),xlognot(void),
  51.     xsin(void),xcos(void),xtan(void),xexpt(void),xexp(void),xsqrt(void),xrand(void),
  52.     xlss(void),xleq(void),xequ(void),xneq(void),xgeq(void),xgtr(void),
  53.     xsubseq(void),xstring(void),xchar(void),
  54.     xread(void),xprint(void),xprin1(void),xprinc(void),xterpri(void),
  55.     xflatsize(void),xflatc(void),
  56.     xopen(void),xclose(void),xrdchar(void),xpkchar(void),xwrchar(void),xreadline(void),
  57.     xload(void),xtranscript(void),
  58.     xtype(void),xexit(void),xpeek(void),xpoke(void),xaddrs(void),
  59.     xvector(void),xblock(void),xrtnfrom(void),xtagbody(void),
  60.     xpsetq(void),xflet(void),xlabels(void),xmacrolet(void),xunwindprotect(void),xpp(void),
  61.     xstrlss(void),xstrleq(void),xstreql(void),xstrneq(void),xstrgeq(void),xstrgtr(void),
  62.     xstrilss(void),xstrileq(void),xstrieql(void),xstrineq(void),xstrigeq(void),xstrigtr(void),
  63.     xupcase(void),xdowncase(void),xnupcase(void),xndowncase(void),
  64.     xtrim(void),xlefttrim(void),xrighttrim(void),
  65.     xuppercasep(void),xlowercasep(void),xbothcasep(void),xdigitp(void),xalphanumericp(void),
  66.     xcharcode(void),xcodechar(void),xchupcase(void),xchdowncase(void),xdigitchar(void),
  67.     xchrlss(void),xchrleq(void),xchreql(void),xchrneq(void),xchrgeq(void),xchrgtr(void),
  68.     xchrilss(void),xchrileq(void),xchrieql(void),xchrineq(void),xchrigeq(void),xchrigtr(void),
  69.     xintegerp(void),xfloatp(void),xstringp(void),xarrayp(void),xstreamp(void),xobjectp(void),
  70.     xwhen(void),xunless(void),xloop(void),
  71.     xsymfunction(void),xfboundp(void),xsend(void),xsendsuper(void),
  72.     xprogv(void),xrdbyte(void),xwrbyte(void),xformat(void),
  73.     xcharp(void),xcharint(void),xintchar(void),
  74.     xmkstrinput(void),xmkstroutput(void),xgetstroutput(void),xgetlstoutput(void),
  75.     xgetlambda(void),xmacroexpand(void),x1macroexpand(void),
  76.     xtrace(void),xuntrace(void);
  77. #ifdef STRUCTS
  78. extern LVAL
  79.     xdefstruct(void),xmkstruct(void),xcpystruct(void),xstrref(void),xstrset(void),xstrtypep(void),
  80.     xasin(void),xacos(void),xatan(void);
  81. #endif
  82.  
  83.  
  84. #ifdef ADDEDTAA
  85. extern LVAL
  86.     xgeneric(void),xtime(void),xcountif(void),xfindif(void); /* TAA MOD -- added */
  87. #endif
  88.  
  89. #ifdef COMMONLISP
  90. extern LVAL
  91.     xsome(void), xevery(void), xnotany(void), xnotevery(void), xnreverse(void),
  92.     xcoerce(void), xconcatenate(void), xelt(void), xmap(void), xsearch(void);
  93. #ifdef ADDEDTAA
  94. extern LVAL
  95.     xpositionif(void);    /* TAA MOD, only added when COMMONLISP is true as well */
  96. #endif
  97. #else
  98. extern LVAL xstrcat(void);
  99. #endif
  100.  
  101. #ifdef BETTERIO
  102. extern LVAL xfileposition(void), xfilelength(void);
  103. #endif
  104.  
  105. /* functions specific to xldmem.c */
  106. extern LVAL xgc(void),xexpand(void),xalloc(void),xmem(void);
  107. #ifdef SAVERESTORE
  108. extern LVAL xsave(void),xrestore(void);
  109. #endif
  110.  
  111. #ifdef APPLYHOOK
  112. extern LVAL xapplyhook(void);
  113. #endif
  114.  
  115. /*************************/
  116. #else
  117. /* not an ANSI compiler */
  118.  
  119. /* external functions */
  120. extern LVAL
  121.     rmhash(),rmquote(),rmdquote(),rmbquote(),rmcomma(),
  122.     clnew(),clisnew(),clanswer(),
  123.     obisnew(),obclass(),obshow(),
  124. #ifdef OBJPRNT
  125.     obprin1(),
  126. #endif
  127.     rmlpar(),rmrpar(),rmsemi(),
  128.     xeval(),xapply(),xfuncall(),xquote(),xfunction(),xbquote(),
  129.     xlambda(),xset(),xsetq(),xsetf(),xdefun(),xdefmacro(),
  130.     xgensym(),xmakesymbol(),xintern(),
  131.     xsymname(),xsymvalue(),xsymplist(),
  132.     xget(),xputprop(),xremprop(),
  133.     xhash(),xmkarray(),xaref(),
  134.     xcar(),xcdr(),
  135.     xcaar(),xcadr(),xcdar(),xcddr(),
  136.     xcaaar(),xcaadr(),xcadar(),xcaddr(),
  137.     xcdaar(),xcdadr(),xcddar(),xcdddr(),
  138.     xcaaaar(),xcaaadr(),xcaadar(),xcaaddr(),
  139.     xcadaar(),xcadadr(),xcaddar(),xcadddr(),
  140.     xcdaaar(),xcdaadr(),xcdadar(),xcdaddr(),
  141.     xcddaar(),xcddadr(),xcdddar(),xcddddr(),
  142.     xcons(),xlist(),xappend(),xreverse(),xlast(),xnth(),xnthcdr(),
  143.     xmember(),xassoc(),xsubst(),xsublis(),xlength(),xsort(),
  144.     xremove(),xremif(),xremifnot(),
  145.     xmapc(),xmapcar(),xmapl(),xmaplist(),
  146.     xrplca(),xrplcd(),xnconc(),
  147.     xdelete(),xdelif(),xdelifnot(),
  148.     xatom(),xsymbolp(),xnumberp(),xboundp(),xnull(),xlistp(),xendp(),xconsp(),
  149.     xeq(),xeql(),xequal(),
  150.     xcond(),xcase(),xand(),xor(),xlet(),xletstar(),xif(),
  151.     xprog(),xprogstar(),xprog1(),xprog2(),xprogn(),xgo(),xreturn(),
  152.     xcatch(),xthrow(),
  153.     xerror(),xcerror(),xbreak(),
  154.     xcleanup(),xtoplevel(),xcontinue(),xerrset(),
  155.     xbaktrace(),xevalhook(),
  156.     xdo(),xdostar(),xdolist(),xdotimes(),
  157.     xminusp(),xzerop(),xplusp(),xevenp(),xoddp(),
  158.     xfix(),xfloat(),
  159.     xgcd(),xadd(),xsub(),xmul(),xdiv(),xrem(),xmin(),xmax(),xabs(),
  160.     xadd1(),xsub1(),xlogand(),xlogior(),xlogxor(),xlognot(),
  161.     xsin(),xcos(),xtan(),xexpt(),xexp(),xsqrt(),xrand(),
  162.     xlss(),xleq(),xequ(),xneq(),xgeq(),xgtr(),
  163.     xsubseq(),xstring(),xchar(),
  164.     xread(),xprint(),xprin1(),xprinc(),xterpri(),
  165.     xflatsize(),xflatc(),
  166.     xopen(),xclose(),xrdchar(),xpkchar(),xwrchar(),xreadline(),
  167.     xload(),xtranscript(),
  168.     xtype(),xexit(),xpeek(),xpoke(),xaddrs(),
  169.     xvector(),xblock(),xrtnfrom(),xtagbody(),
  170.     xpsetq(),xflet(),xlabels(),xmacrolet(),xunwindprotect(),xpp(),
  171.     xstrlss(),xstrleq(),xstreql(),xstrneq(),xstrgeq(),xstrgtr(),
  172.     xstrilss(),xstrileq(),xstrieql(),xstrineq(),xstrigeq(),xstrigtr(),
  173.     xupcase(),xdowncase(),xnupcase(),xndowncase(),
  174.     xtrim(),xlefttrim(),xrighttrim(),
  175.     xuppercasep(),xlowercasep(),xbothcasep(),xdigitp(),xalphanumericp(),
  176.     xcharcode(),xcodechar(),xchupcase(),xchdowncase(),xdigitchar(),
  177.     xchrlss(),xchrleq(),xchreql(),xchrneq(),xchrgeq(),xchrgtr(),
  178.     xchrilss(),xchrileq(),xchrieql(),xchrineq(),xchrigeq(),xchrigtr(),
  179.     xintegerp(),xfloatp(),xstringp(),xarrayp(),xstreamp(),xobjectp(),
  180.     xwhen(),xunless(),xloop(),
  181.     xsymfunction(),xfboundp(),xsend(),xsendsuper(),
  182.     xprogv(),xrdbyte(),xwrbyte(),xformat(),
  183.     xcharp(),xcharint(),xintchar(),
  184.     xmkstrinput(),xmkstroutput(),xgetstroutput(),xgetlstoutput(),
  185.     xgetlambda(),xmacroexpand(),x1macroexpand(),
  186.     xtrace(),xuntrace();
  187. #ifdef STRUCTS
  188. extern LVAL
  189.     xdefstruct(),xmkstruct(),xcpystruct(),xstrref(),xstrset(),xstrtypep(),
  190.     xasin(),xacos(),xatan();
  191. #endif
  192.  
  193.  
  194. #ifdef ADDEDTAA
  195. extern LVAL
  196.     xgeneric(),xtime(),xcountif(),xfindif(); /* TAA MOD -- added */
  197. #endif
  198.  
  199. #ifdef COMMONLISP
  200. extern LVAL
  201.     xsome(), xevery(), xnotany(), xnotevery(), xnreverse(),
  202.     xcoerce(), xconcatenate(), xelt(), xmap(), xsearch();
  203. #ifdef ADDEDTAA
  204. extern LVAL
  205.     xpositionif();    /* TAA MOD, only added when COMMONLISP is true as well */
  206. #endif
  207. #else
  208. extern LVAL xstrcat();
  209. #endif
  210.  
  211. #ifdef BETTERIO
  212. extern LVAL xfileposition(), xfilelength();
  213. #endif
  214.  
  215. /* functions specific to xldmem.c */
  216. extern LVAL xgc(),xexpand(),xalloc(),xmem();
  217. #ifdef SAVERESTORE
  218. extern LVAL xsave(),xrestore();
  219. #endif
  220.  
  221. #ifdef APPLYHOOK
  222. extern LVAL xapplyhook();
  223. #endif
  224.  
  225. #endif
  226.